home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fbr12c / aboutit.frm next >
Text File  |  1995-09-06  |  4KB  |  127 lines
  1. VERSION 2.00
  2. Begin Form AboutIt 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About..."
  6.    ClientHeight    =   3690
  7.    ClientLeft      =   1530
  8.    ClientTop       =   1620
  9.    ClientWidth     =   3315
  10.    Height          =   4095
  11.    Left            =   1470
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3690
  17.    ScaleWidth      =   3315
  18.    Top             =   1275
  19.    Width           =   3435
  20.    Begin CommandButton AboutOK 
  21.       Caption         =   "&OK"
  22.       Height          =   375
  23.       Left            =   855
  24.       TabIndex        =   0
  25.       Top             =   3045
  26.       Width           =   1575
  27.    End
  28.    Begin PictureBox Picture1 
  29.       Height          =   2550
  30.       Left            =   255
  31.       ScaleHeight     =   2520
  32.       ScaleWidth      =   2775
  33.       TabIndex        =   1
  34.       TabStop         =   0   'False
  35.       Top             =   255
  36.       Width           =   2805
  37.       Begin Label Label6 
  38.          Alignment       =   2  'Center
  39.          Caption         =   "Compuserve ID: 76646,2552"
  40.          Height          =   240
  41.          Left            =   45
  42.          TabIndex        =   7
  43.          Top             =   2190
  44.          Width           =   2685
  45.       End
  46.       Begin Label Label2 
  47.          Alignment       =   2  'Center
  48.          Caption         =   "More Homegrown Software from Marshal Bostwick."
  49.          Height          =   435
  50.          Left            =   45
  51.          TabIndex        =   3
  52.          Top             =   1710
  53.          Width           =   2685
  54.       End
  55.       Begin Label Label4 
  56.          Alignment       =   2  'Center
  57.          Caption         =   "A Shareware Run and Load Utility for Windows. "
  58.          Height          =   420
  59.          Left            =   45
  60.          TabIndex        =   5
  61.          Top             =   1215
  62.          Width           =   2685
  63.       End
  64.       Begin Label Label5 
  65.          Alignment       =   2  'Center
  66.          Caption         =   "  (son of FileBoy's Runner)  "
  67.          FontBold        =   -1  'True
  68.          FontItalic      =   0   'False
  69.          FontName        =   "MS Sans Serif"
  70.          FontSize        =   8.25
  71.          FontStrikethru  =   0   'False
  72.          FontUnderline   =   -1  'True
  73.          Height          =   255
  74.          Left            =   45
  75.          TabIndex        =   6
  76.          Top             =   825
  77.          Width           =   2685
  78.       End
  79.       Begin Label Label1 
  80.          Alignment       =   2  'Center
  81.          Caption         =   "Runway 1.2c"
  82.          FontBold        =   -1  'True
  83.          FontItalic      =   0   'False
  84.          FontName        =   "MS Serif"
  85.          FontSize        =   13.5
  86.          FontStrikethru  =   0   'False
  87.          FontUnderline   =   0   'False
  88.          Height          =   405
  89.          Left            =   45
  90.          TabIndex        =   2
  91.          Top             =   360
  92.          Width           =   2685
  93.       End
  94.       Begin Label Label3 
  95.          Alignment       =   2  'Center
  96.          Caption         =   "             FileBoy's            "
  97.          FontBold        =   -1  'True
  98.          FontItalic      =   0   'False
  99.          FontName        =   "MS Sans Serif"
  100.          FontSize        =   8.25
  101.          FontStrikethru  =   0   'False
  102.          FontUnderline   =   -1  'True
  103.          Height          =   255
  104.          Left            =   45
  105.          TabIndex        =   4
  106.          Top             =   45
  107.          Width           =   2685
  108.       End
  109.    End
  110. End
  111.  
  112. Sub AboutOK_Click ()
  113.     Unload AboutIt
  114. End Sub
  115.  
  116. Sub Form_Load ()
  117.     AboutIt.Left = (Screen.Width - AboutIt.Width) / 2
  118.     AboutIt.Top = (Screen.Height - AboutIt.Height) / 3
  119. End Sub
  120.  
  121. Sub Form_Paint ()
  122.     FrameFrm AboutIt
  123.     FrameCtrl AboutIt, Picture1, Picture1, Picture1, Picture1
  124.     FrameCtrl AboutIt, AboutOK, AboutOK, AboutOK, AboutOK
  125. End Sub
  126.  
  127.